home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / M / MacPerl 4.13 source.sit / Perl Source ƒ / Perl / t / MakeMacPerlTest < prev    next >
MacBinary  |  1994-01-02  |  1.6 KB  |  [TEXT/MPS ]
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: MakeMacPerlTest

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Jan 2 22:24:28 1994, modified Sun Jan 2 22:24:28 1994, creator 'MPS ', type ASCII, 926 bytes "MakeMacPerlTest" , at 0x41e 428 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0f 4d 61 6b 65 4d 61 | 63 50 65 72 6c 54 65 73 |..MakeMa|cPerlTes|
|00000010| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 9e 00 | 00 01 ac a9 4d 40 6c a9 |........|....M@l.|
|00000060| 4d 40 6c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |M@l.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9b cf 00 00 |........|........|
|00000080| 50 65 72 6c 20 2d 53 78 | 20 22 7b 30 7d 22 20 7b |Perl -Sx| "{0}" {|
|00000090| 22 50 61 72 61 6d 65 74 | 65 72 73 22 7d 0d 45 78 |"Paramet|ers"}.Ex|
|000000a0| 69 74 20 30 0d 23 21 70 | 65 72 6c 0d 0d 70 72 69 |it 0.#!p|erl..pri|
|000000b0| 6e 74 20 3c 3c 27 45 4e | 44 5f 48 45 41 44 45 52 |nt <<'EN|D_HEADER|
|000000c0| 27 3b 0d 74 65 6c 6c 20 | 61 70 70 6c 69 63 61 74 |';.tell |applicat|
|000000d0| 69 6f 6e 20 22 4d 61 63 | 50 65 72 6c 22 0d 09 77 |ion "Mac|Perl"..w|
|000000e0| 69 74 68 20 74 69 6d 65 | 6f 75 74 20 6f 66 20 33 |ith time|out of 3|
|000000f0| 30 30 20 73 65 63 6f 6e | 64 73 0d 09 09 61 63 74 |00 secon|ds...act|
|00000100| 69 76 61 74 65 0d 09 09 | 2d 2d 20 41 73 6b 20 66 |ivate...|-- Ask f|
|00000110| 6f 72 20 74 68 65 20 74 | 65 73 74 20 66 6f 6c 64 |or the t|est fold|
|00000120| 65 72 2e 20 0d 09 09 2d | 2d 20 54 68 69 73 20 66 |er. ...-|- This f|
|00000130| 6f 6c 64 65 72 20 6d 75 | 73 74 20 62 65 20 77 72 |older mu|st be wr|
|00000140| 69 74 65 61 62 6c 65 2e | 0d 09 09 73 65 74 20 70 |iteable.|...set p|
|00000150| 20 74 6f 20 44 6f 20 53 | 63 72 69 70 74 20 22 72 | to Do S|cript "r|
|00000160| 65 71 75 69 72 65 20 5c | 22 47 55 53 49 2e 70 68 |equire \|"GUSI.ph|
|00000170| 5c 22 3b 20 26 4d 61 63 | 50 65 72 6c 27 52 65 70 |\"; &Mac|Perl'Rep|
|00000180| 6c 79 28 26 4d 61 63 50 | 65 72 6c 27 43 68 6f 6f |ly(&MacP|erl'Choo|
|00000190| 73 65 28 26 47 55 53 49 | 27 41 46 5f 46 49 4c 45 |se(&GUSI|'AF_FILE|
|000001a0| 2c 20 30 2c 20 5c 22 57 | 68 65 72 65 20 61 72 65 |, 0, \"W|here are|
|000001b0| 20 74 68 65 20 74 65 73 | 74 73 20 3f 5c 22 2c 20 | the tes|ts ?\", |
|000001c0| 5c 22 5c 22 2c 20 26 47 | 55 53 49 27 43 48 4f 4f |\"\", &G|USI'CHOO|
|000001d0| 53 45 5f 44 49 52 29 29 | 22 0d 45 4e 44 5f 48 45 |SE_DIR))|".END_HE|
|000001e0| 41 44 45 52 0d 0d 77 68 | 69 6c 65 20 28 24 73 63 |ADER..wh|ile ($sc|
|000001f0| 72 69 70 74 20 3d 20 73 | 68 69 66 74 29 20 7b 0d |ript = s|hift) {.|
|00000200| 09 6e 65 78 74 20 69 66 | 20 24 73 63 72 69 70 74 |.next if| $script|
|00000210| 20 3d 7e 20 2f 6d 61 63 | 2f 3b 0d 09 0d 09 70 72 | =~ /mac|/;....pr|
|00000220| 69 6e 74 20 22 5c 74 5c | 74 44 6f 20 53 63 72 69 |int "\t\|tDo Scri|
|00000230| 70 74 20 5c 22 70 72 69 | 6e 74 20 5c 5c 5c 22 2d |pt \"pri|nt \\\"-|
|00000240| 2d 2d 2d 2d 20 24 73 63 | 72 69 70 74 22 20 2e 20 |---- $sc|ript" . |
|00000250| 27 2e 27 20 78 20 28 32 | 30 20 2d 20 6c 65 6e 67 |'.' x (2|0 - leng|
|00000260| 74 68 28 24 73 63 72 69 | 70 74 29 29 20 2e 20 22 |th($scri|pt)) . "|
|00000270| 5c 5c 5c 5c 6e 5c 5c 5c | 22 5c 22 5c 6e 22 3b 0d |\\\\n\\\|"\"\n";.|
|00000280| 09 0d 09 69 66 20 28 24 | 73 63 72 69 70 74 20 3d |...if ($|script =|
|00000290| 7e 20 2f 63 70 70 2f 29 | 20 7b 0d 09 09 70 72 69 |~ /cpp/)| {...pri|
|000002a0| 6e 74 20 22 5c 74 5c 74 | 44 6f 20 53 63 72 69 70 |nt "\t\t|Do Scrip|
|000002b0| 74 20 28 70 20 26 20 5c | 22 24 73 63 72 69 70 74 |t (p & \|"$script|
|000002c0| 5c 22 29 20 77 69 74 68 | 20 70 72 65 70 72 6f 63 |\") with| preproc|
|000002d0| 65 73 73 5c 6e 22 3b 0d | 09 7d 20 65 6c 73 65 20 |ess\n";.|.} else |
|000002e0| 7b 0d 09 09 70 72 69 6e | 74 20 22 5c 74 5c 74 44 |{...prin|t "\t\tD|
|000002f0| 6f 20 53 63 72 69 70 74 | 20 28 70 20 26 20 5c 22 |o Script| (p & \"|
|00000300| 24 73 63 72 69 70 74 5c | 22 29 5c 6e 22 3b 0d 09 |$script\|")\n";..|
|00000310| 7d 0d 7d 0d 0d 70 72 69 | 6e 74 20 3c 3c 45 4e 44 |}.}..pri|nt <<END|
|00000320| 5f 46 4f 4f 54 45 52 3b | 0d 09 09 53 61 76 65 20 |_FOOTER;|...Save |
|00000330| 66 72 6f 6e 74 20 57 69 | 6e 64 6f 77 20 69 6e 20 |front Wi|ndow in |
|00000340| 66 69 6c 65 20 28 70 20 | 26 20 22 3a 4d 61 63 50 |file (p |& ":MacP|
|00000350| 65 72 6c 54 65 73 74 2e | 4f 75 74 22 29 0d 09 09 |erlTest.|Out")...|
|00000360| 64 65 6c 65 74 65 20 74 | 65 78 74 20 69 6e 20 66 |delete t|ext in f|
|00000370| 72 6f 6e 74 20 57 69 6e | 64 6f 77 0d 09 09 44 6f |ront Win|dow...Do|
|00000380| 20 53 63 72 69 70 74 20 | 7b 28 70 20 26 20 22 3a | Script |{(p & ":|
|00000390| 4d 61 63 50 65 72 6c 54 | 65 73 74 22 29 2c 20 22 |MacPerlT|est"), "|
|000003a0| 65 76 61 6c 75 61 74 65 | 22 2c 20 28 70 20 26 20 |evaluate|", (p & |
|000003b0| 22 3a 4d 61 63 50 65 72 | 6c 54 65 73 74 2e 4f 75 |":MacPer|lTest.Ou|
|000003c0| 74 22 29 7d 0d 09 09 53 | 61 76 65 20 66 72 6f 6e |t")}...S|ave fron|
|000003d0| 74 20 57 69 6e 64 6f 77 | 20 69 6e 20 66 69 6c 65 |t Window| in file|
|000003e0| 20 28 70 20 26 20 22 3a | 4d 61 63 50 65 72 6c 54 | (p & ":|MacPerlT|
|000003f0| 65 73 74 2e 52 65 73 75 | 6c 74 22 29 0d 09 65 6e |est.Resu|lt")..en|
|00000400| 64 20 74 69 6d 65 6f 75 | 74 0d 65 6e 64 20 74 65 |d timeou|t.end te|
|00000410| 6c 6c 0d 45 4e 44 5f 46 | 4f 4f 54 45 52 0d 00 00 |ll.END_F|OOTER...|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000490| 00 00 2b 44 07 4f 70 2e | 64 62 6d 78 00 00 00 00 |..+D.Op.|dbmx....|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 0f 4d 61 6b 65 4d 61 63 | 50 65 72 6c 54 65 73 74 |.MakeMac|PerlTest|
|000004c0| 02 00 00 00 54 45 58 54 | 4d 50 53 20 01 00 00 9c |....TEXT|MPS ....|
|000004d0| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 9c 00 f0 |..TEXTMP|S ......|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 a8 ee 29 21 00 00 | 03 9e 00 00 01 ac 00 00 |....)!..|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 02 99 25 00 00 00 |........|....%...|
|00000510| 2b 45 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |+E......|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 01 6d 25 00 | 00 00 2b 45 04 69 66 2e |.....m%.|..+E.if.|
|00000540| 74 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |t.......|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 02 9a |........|........|
|00000560| 25 00 00 00 2b 45 05 6c | 65 78 2e 74 00 00 00 00 |%...+E.l|ex.t....|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 45 4e 44 |...H..Mo|naco.END|
|00000590| 5f 48 45 41 44 45 52 3b | 0d 74 65 6c 6c 20 61 70 |_HEADER;|.tell ap|
|000005a0| 70 6c 69 63 61 74 00 06 | 00 03 00 3c 00 24 01 dd |plicat..|...<.$..|
|000005b0| 02 3d 00 3c 00 24 01 dd | 02 3d a9 4c fa 1c 00 00 |.=.<.$..|.=.L....|
|000005c0| 03 89 00 00 03 89 00 00 | 00 00 01 00 00 00 00 1e |........|........|
|000005d0| 00 3c 00 24 01 dd 02 3d | 00 3c 00 24 01 dd 02 3d |.<.$...=|.<.$...=|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 42 |.....n..|.n...>.B|
|00000600| 77 64 15 ac 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |wd......|.>..MPSR|
|00000610| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 03 f0 ff ff 00 00 00 4c | 00 44 cf 84 00 00 00 00 |.......L|.D......|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+